﻿Public Class YoklamaBasim
    Inherits ProcessReport

    Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
        Select Case e.EventType
            'Case EventType.Initialize
			'    Text ="Yoklama Basımı"
			'    AddField("hturu", "")
			'    AddField("kimlik", "")
			'    AddField("kimlik2:kimlik[label=]", "nl")
			'Case EventType.ValidateForm
			'    Rs = OpenSQL("select * from yaslılık..yasmaasbil where odeyerkod < 900 and hturu = :~hturu and kimlik between :~kimlik and :~kimlik2 order by kimlik", Input("hturu"), Input("kimlik"), If(IsEmpty("kimlik2"), "Z", Input("kimlik2")))
			'    Report.NoPageNumbers = True
			'    e.Result = True
			'Case EventType.ReportDetail
			'    Report.SetBoundaries(0.03, 0.05)
			'    Report.SetColumns("", "5;1;1", "l;r;l", "-")
			'    Do Until Rs.EOF
			'        Report.Print(" ")
			'        Report.SkipLine(4)
			'        Report.Print("<+><b>Sayın " & Trim(Rs("adi")) & " " & Trim(Rs("soyadi")) & ",", "Hesap/Karar :", Trim(Rs("hturu")) & "/" & Rs("kararno"))
			'        Report.Print("<b>" & Trim(IsNull(Rs("adr"), "")) & " " & Trim(IsNull(Rs("adrsemt"), "")) & " " & Trim(IsNull(Rs("adrsehir"), "")), "Kimlik no. :", Rs("kimlik"))
			'        Report.Print("", "Ödeme yeri :", Rs("odeyerkod"))
			'        Report.SkipLine(4)
			'        Report.PrintSignature()
			'        Report.EndPage()
			'        Rs.MoveNext()
			'    Loop
		End Select
	End Sub

End Class

Public Class YoklamaBasimBos
	Inherits ProcessReport

	Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
		Select Case e.EventType
			Case EventType.Initialize
				Text = "Yoklama Basımı"
				AddText("adet", "Adet", "nl", 100)
			Case EventType.ValidateForm
				Report.NoPageNumbers = True
				e.Result = True
			Case EventType.ReportDetail
				Report.SetBoundaries(0.03, 0.05)
				Report.SetColumns("", "5;1;1", "l;r;l", "-")
				For i As Integer = 1 To Input("adet")
					Report.Print(" ")
					Report.SkipLine(4)
					Report.Print("<+><b>Ad Soyad :", "Hesap/Karar  :", "")
					Report.Print("<b> Adres :", "Kimlik no. :", "")
					Report.SkipLine(5)
					Report.PrintSignature()
					Report.EndPage()
				Next
		End Select
	End Sub

End Class
